home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCsiod / scm / random.scm < prev    next >
Encoding:
Text File  |  1993-02-22  |  174 b   |  6 lines
  1. (define (next-rand x)
  2.         (remainder (+ 25514 (* x 3)) 65536))
  3.  
  4. (define rand (let ((random 2346))
  5.                   (lambda () (set! random (next-rand random)) random)))
  6.